home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
disk
/
jukebox2.lha
/
JukeBox_2.1
/
rem.jb
< prev
next >
Wrap
Text File
|
1993-01-29
|
473b
|
22 lines
/* calculate remaining time */
/* (c) copyright 1992,93 by F.J. Reichert */
numeric digits 4
options results;
current time
relative = result;
current cdtime
absolute = result;
subtime absolute relative
remain = result;
percent = ticks(remain) * 100 / ticks(absolute);
say 'remaining play time' remain 'of' absolute '('||percent||'%)'
exit 0;
ticks:
parse arg tstr
parse value tstr with time.0 ':' time.1 ':' time.2;
abs = (time.0 * 60 + time.1) * 75 + time.2
return abs